home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 109 / EnigmaAmiga109CD.iso / dalla rivista / amiga.free / diropus4.12b_gpl / library / functions2.a < prev    next >
Text File  |  2000-01-27  |  2KB  |  111 lines
  1. ; Directory Opus 4
  2. ; Original GPL release version 4.12
  3. ; Copyright 1993-2000 Jonathan Potter
  4. ; 
  5. ; This program is free software; you can redistribute it and/or
  6. ; modify it under the terms of the GNU General Public License
  7. ; as published by the Free Software Foundation; either version 2
  8. ; of the License, or (at your option) any later version.
  9. ; 
  10. ; This program is distributed in the hope that it will be useful,
  11. ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  12. ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13. ; GNU General Public License for more details.
  14. ; 
  15. ; You should have received a copy of the GNU General Public License
  16. ; along with this program; if not, write to the Free Software
  17. ; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  18. ; 
  19. ; All users of Directory Opus 4 (including versions distributed
  20. ; under the GPL) are entitled to upgrade to the latest version of
  21. ; Directory Opus version 5 at a reduced price. Please see
  22. ; http://www.gpsoft.com.au for more information.
  23. ; 
  24. ; The release of Directory Opus 4 under the GPL in NO WAY affects
  25. ; the existing commercial status of Directory Opus 5.
  26.  
  27.     SECTION    code
  28.  
  29.     INCLUDE "exec/types.i"
  30.     INCLUDE "exec/initializers.i"
  31.     INCLUDE "exec/libraries.i"
  32.     INCLUDE "exec/lists.i"
  33.     INCLUDE "exec/alerts.i"
  34.     INCLUDE "exec/resident.i"
  35.     INCLUDE "exec/ports.i"
  36.     INCLUDE "exec/io.i"
  37.     INCLUDE "libraries/dos.i"
  38.     INCLUDE "graphics/rastport.i"
  39.  
  40.     INCLUDE "asmsupp.i"
  41.     INCLUDE "dopusbase.i"
  42.  
  43.     XDEF BtoCStr
  44.     XDEF ActivateStrGad
  45.     XDEF RefreshStrGad
  46.     
  47. BtoCStr:
  48.     subq.l #1,d0
  49.     move.l a0,d1
  50.     lsl.l #2,d1
  51.     move.l d1,a0
  52.     moveq.l #0,d1
  53.     move.b (a0)+,d1
  54.     cmp.l d0,d1
  55.     ble conloop
  56.     move.l d0,d1
  57. conloop:
  58.     move.b (a0)+,(a1)+
  59.     dbeq d1,conloop
  60.     move.b #0,(a1)
  61.     rts
  62.  
  63. ActivateStrGad:
  64.     movem.l d2/a2-a4/a6,-(sp)
  65.     btst.b #0,12(a0)
  66.     bne.s noact
  67.     move.l 34(a0),a2
  68.     move.l (a2),a3
  69.     moveq.l #0,d2
  70. lenloop:
  71.     addq.w #1,d2
  72.     tst.b (a3)+
  73.     bne lenloop
  74.     subq.w #1,d2
  75.     btst.b #2,14(a0)
  76.     beq strleft
  77.     move.w #0,8(a2)
  78.     bra doact
  79. strleft:
  80.     move.w d2,8(a2)
  81. doact:
  82.     move.l a0,a3
  83.     move.l a1,a4
  84.     move.l #0,a2
  85.     moveq.l #1,d0
  86.     move.l db_IntuitionBase(a6),a6
  87.     jsr _LVORefreshGList(a6)
  88.     move.l a3,a0
  89.     move.l a4,a1
  90.     move.l #0,a2
  91.     jsr _LVOActivateGadget(a6)
  92. noact:
  93.     movem.l (sp)+,d2/a2-a4/a6
  94.     rts
  95.  
  96. RefreshStrGad:
  97.     movem.l a2/a3/a6,-(sp)
  98.     move.l 34(a0),a2
  99.     move.w #0,8(a2)
  100.     move.l a0,a3
  101.     or.w #3,12(a3)
  102.     move.l #0,a2
  103.     moveq.l #1,d0
  104.     move.l db_IntuitionBase(a6),a6
  105.     jsr _LVORefreshGList(a6)
  106.     and.w #-4,12(a3)
  107.     movem.l (sp)+,a2/a3/a6
  108.     rts
  109.  
  110.     end
  111.